#!/usr/bin/perl

# Иванов Илья
# 23.11.2013

# ЗАДАНИЕ:
# Создать запрос для вывода только правильно написанных выражений со скобками.

# РЕШЕНИЕ:
# Выделяет в каждой строке скобками [] части текста, которые содержат правильно
# составленные с круглыми скобками выражения.

# ЗАМЕЧАНИЕ:
# Использует рекурсивыне регэкспы, которые не являются регэкспами в их классическом понимании.

$regex = qr/\(([^()]+|(??{$regex}))*\)/;

while ($line = <>) {
	$line =~ s/($regex)/[$1]/g;
	print $line;
}
